object DMLab: TDMLab
  OldCreateOrder = False
  Height = 615
  Width = 980
  object care_test_param: TUniTable
    TableName = 'care_test_param'
    Connection = FConnection.UniConnection1
    Active = True
    Left = 48
    Top = 24
  end
  object DScare_test_param: TUniDataSource
    DataSet = care_test_param
    Left = 48
    Top = 80
  end
  object care_type_test: TUniTable
    TableName = 'care_type_test'
    Connection = FConnection.UniConnection1
    Active = True
    Left = 152
    Top = 24
  end
  object DScare_type_test: TUniDataSource
    DataSet = care_type_test
    Left = 152
    Top = 80
  end
  object his_test_request: TUniTable
    TableName = 'his_test_request'
    Connection = FConnection.UniConnection1
    Active = True
    Left = 296
    Top = 24
  end
  object DShis_test_request: TUniDataSource
    DataSet = his_test_request
    Left = 296
    Top = 80
  end
  object his_test_request_sub: TUniTable
    TableName = 'his_test_request_sub'
    Connection = FConnection.UniConnection1
    MasterSource = DShis_test_request
    MasterFields = 'batch_nr'
    DetailFields = 'batch_nr'
    Active = True
    Left = 413
    Top = 24
    ParamData = <
      item
        DataType = ftInteger
        Name = 'batch_nr'
        ParamType = ptInput
        Value = 25
      end>
  end
  object DShis_test_request_sub: TUniDataSource
    DataSet = his_test_request_sub
    Left = 413
    Top = 80
  end
  object his_item_test_list: TUniTable
    TableName = 'his_item_test_list'
    Connection = FConnection.UniConnection1
    Active = True
    Left = 528
    Top = 24
  end
  object DShis_item_test_list: TUniDataSource
    DataSet = his_item_test_list
    Left = 528
    Top = 80
  end
  object deleteTestSubNo: TUniSQL
    Connection = FConnection.UniConnection1
    SQL.Strings = (
      'DELETE FROM his_test_request_sub where yesno = '#39'0'#39)
    Left = 288
    Top = 400
  end
  object DShis_enctounter_lab_tests_prices: TUniDataSource
    DataSet = his_enctounter_lab_tests_prices
    Left = 80
    Top = 200
  end
  object his_enctounter_lab_tests_prices: TUniQuery
    Connection = FConnection.UniConnection1
    SQL.Strings = (
      
        'SELECT * FROM his_enctounter_lab_tests_prices where encounter_nr' +
        ' = :a')
    Active = True
    Left = 80
    Top = 144
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'a'
        Value = nil
      end>
  end
  object his_item_test_list_group: TUniQuery
    Connection = FConnection.UniConnection1
    SQL.Strings = (
      'select * from his_item_test_list where group_id = :a')
    Active = True
    Left = 240
    Top = 144
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'a'
        Value = nil
      end>
  end
  object DShis_item_test_list_group: TUniDataSource
    DataSet = his_item_test_list_group
    Left = 240
    Top = 200
  end
  object his_test_request_radio: TUniTable
    TableName = 'his_test_request_radio'
    Connection = FConnection.UniConnection1
    Active = True
    Left = 80
    Top = 264
  end
  object DShis_test_request_radio: TUniDataSource
    DataSet = his_test_request_radio
    Left = 80
    Top = 320
  end
  object his_radiology_items_list: TUniTable
    TableName = 'his_radiology_items_list'
    Connection = FConnection.UniConnection1
    Active = True
    Left = 384
    Top = 144
  end
  object DShis_radiology_items_list: TUniDataSource
    DataSet = his_radiology_items_list
    Left = 384
    Top = 200
  end
  object his_test_request_radio_sub: TUniTable
    TableName = 'his_test_request_radio_sub'
    Connection = FConnection.UniConnection1
    MasterSource = DShis_test_request_radio
    MasterFields = 'his_test_request_radio_id'
    DetailFields = 'his_test_request_radio_id'
    Active = True
    SpecificOptions.Strings = (
      'MySQL.FieldsAsString=True')
    Left = 224
    Top = 264
    ParamData = <
      item
        DataType = ftInteger
        Name = 'his_test_request_radio_id'
        ParamType = ptInput
        Value = 1
      end>
  end
  object DShis_test_request_radio_sub: TUniDataSource
    DataSet = his_test_request_radio_sub
    Left = 224
    Top = 320
  end
  object DShis_radio_result: TUniDataSource
    DataSet = his_radio_result
    Left = 384
    Top = 320
  end
  object his_radio_result: TUniTable
    TableName = 'his_radio_result'
    Connection = FConnection.UniConnection1
    MasterSource = DShis_test_request_radio
    MasterFields = 'his_test_request_radio_id'
    DetailFields = 'his_test_request_radio_id'
    Active = True
    Left = 384
    Top = 264
    ParamData = <
      item
        DataType = ftInteger
        Name = 'his_test_request_radio_id'
        ParamType = ptInput
        Value = 1
      end>
  end
  object his_encounter_all_info: TUniTable
    TableName = 'his_encounter_all_info'
    Connection = FConnection.UniConnection1
    MasterSource = DShis_test_request_radio
    MasterFields = 'encounter_nr'
    DetailFields = 'encounter_date'
    Active = True
    Left = 504
    Top = 264
    ParamData = <
      item
        DataType = ftInteger
        Name = 'encounter_nr'
        ParamType = ptInput
        Value = 1
      end>
  end
  object DShis_encounter_all_info: TUniDataSource
    DataSet = his_encounter_all_info
    Left = 504
    Top = 320
  end
  object his_lab_test_report: TUniTable
    TableName = 'his_lab_test_report'
    Connection = FConnection.UniConnection1
    Active = True
    Left = 648
    Top = 24
  end
  object DShis_lab_test_report: TUniDataSource
    DataSet = his_lab_test_report
    Left = 648
    Top = 80
  end
  object DShis_encounter_all_info_lab: TUniDataSource
    DataSet = his_encounter_all_info_lab
    Left = 784
    Top = 80
  end
  object his_encounter_all_info_lab: TUniTable
    TableName = 'his_encounter_all_info'
    Connection = FConnection.UniConnection1
    MasterSource = DShis_test_request
    MasterFields = 'encounter_nr'
    DetailFields = 'encounter_nr'
    Active = True
    Left = 784
    Top = 24
    ParamData = <
      item
        DataType = ftLargeint
        Name = 'encounter_nr'
        ParamType = ptInput
        Value = 1
      end>
  end
end
